Option Explicit
Sub A_Sample063()
    Dim myWb  As Workbook
    Dim mySht As Worksheet
    Set mySht = Workbooks(1).Worksheets(2)	'Nu@
    'ǳƨ즹
    Set myWb = mySht.Parent
    MsgBox myWb.Name
    Set mySht = Nothing				'
    Set myWb = Nothing
End Sub
